home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / pibt40s1.arc / DOSCDUMP.MOD < prev    next >
Text File  |  1987-03-16  |  4KB  |  103 lines
  1. (*----------------------------------------------------------------------*)
  2. (*              Do_Screen_Dump --- write screen image to file           *)
  3. (*----------------------------------------------------------------------*)
  4.  
  5. PROCEDURE Do_Screen_Dump;
  6.  
  7. (*----------------------------------------------------------------------*)
  8. (*                                                                      *)
  9. (*      Procedure:  Do_Screen_Dump                                      *)
  10. (*                                                                      *)
  11. (*      Purpose:    Handles screen dump requests                        *)
  12. (*                                                                      *)
  13. (*      Calling sequence:                                               *)
  14. (*                                                                      *)
  15. (*         Do_Screen_Dump;                                              *)
  16. (*                                                                      *)
  17. (*      Remarks:                                                        *)
  18. (*                                                                      *)
  19. (*         Depending upon the current text/graphics mode, either the    *)
  20. (*         text screen or the graphics screen is written out.           *)
  21. (*                                                                      *)
  22. (*----------------------------------------------------------------------*)
  23.  
  24. VAR
  25.    Vid_Mode      : INTEGER;
  26.    Graphics_Mode : BOOLEAN;
  27.  
  28. (*----------------------------------------------------------------------*)
  29. (*      Do_Text_Screen_Dump --- write text screen image to file         *)
  30. (*----------------------------------------------------------------------*)
  31.  
  32. PROCEDURE Do_Text_Screen_Dump;
  33.  
  34. BEGIN (* Do_Text_Screen_Dump *)
  35.  
  36.    Save_Partial_Screen( Saved_Screen, 10, 10, 70, 13 );
  37.  
  38.    IF Screen_Dump_Name <> '' THEN
  39.       BEGIN
  40.          Write_Screen( Screen_Dump_Name );
  41.          Draw_Menu_Frame( 10, 10, 70, 13, Menu_Frame_Color, Menu_Title_Color,
  42.                           Menu_Text_Color, '' );
  43.          WRITE('Screen dump written to ',Screen_Dump_Name );
  44.       END
  45.    ELSE
  46.       BEGIN
  47.          Draw_Menu_Frame( 10, 10, 70, 13, Menu_Frame_Color, Menu_Title_Color,
  48.                           Menu_Text_Color, '' );
  49.          WRITE('No screen dump file defined, dump not done.');
  50.       END;
  51.  
  52.    DELAY( Two_Second_Delay );
  53.  
  54.    Restore_Screen( Saved_Screen );
  55.    Reset_Global_Colors;
  56.  
  57. END   (* Do_Text_Screen_Dump *);
  58.  
  59. (*----------------------------------------------------------------------*)
  60. (*   Do_Graphics_Screen_Dump --- write graphics screen image to file    *)
  61. (*----------------------------------------------------------------------*)
  62.  
  63. PROCEDURE Do_Graphics_Screen_Dump;
  64.  
  65. BEGIN (* Do_Graphics_Screen_Dump *)
  66.  
  67.    Save_Screen( Saved_Screen );
  68.  
  69.    IF Graphics_Dump_Name <> '' THEN
  70.       BEGIN
  71.          Write_Graphics_Screen( Graphics_Dump_Name );
  72.          Draw_Menu_Frame( 10, 10, 70, 13, Menu_Frame_Color, Menu_Title_Color,
  73.                           Menu_Text_Color, '' );
  74.          WRITE('Screen dump written to ',Graphics_Dump_Name );
  75.       END
  76.    ELSE
  77.       BEGIN
  78.          Draw_Menu_Frame( 10, 10, 70, 13, Menu_Frame_Color, Menu_Title_Color,
  79.                           Menu_Text_Color, '' );
  80.          WRITE('No graphics screen dump file defined, dump not done.');
  81.       END;
  82.  
  83.    DELAY( Two_Second_Delay );
  84.  
  85.    Restore_Screen( Saved_Screen );
  86.    Reset_Global_Colors;
  87.  
  88. END   (* Do_Graphics_Screen_Dump *);
  89.  
  90. (*----------------------------------------------------------------------*)
  91.  
  92. BEGIN (* Do_Screen_Dump *)
  93.  
  94.    Vid_Mode      := Current_Video_Mode;
  95.    Graphics_Mode := ( Vid_Mode >= MedRes_GraphMode ) AND
  96.                     ( Vid_Mode <> Mono_TextMode );
  97.  
  98.    IF Graphics_Mode THEN
  99.       Do_Graphics_Screen_Dump
  100.    ELSE
  101.       Do_Text_Screen_Dump;
  102.  
  103. END   (* Do_Screen_Dump *);